Loadstar 160/160.d81/b.64 lists ii

Commodore BASIC | 1997-01-01 | 3.1 KB | 83 lines

100 ifpeek(44)<>192thengosub60000:goto760
110 poke56,207:poke55,252:clr:dv=peek(186):ifdv<8thendv=8
120 poke53280,0:poke53281,0:poke53246,peek(45):poke43247,peek(46)
130 dimp$(12),f$(12):tt$="[195] - 6 4   [204] [201] [211] [212] [211]"
140 print"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
150 fori=1to3:print"[158]                                        ";:next
160 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:gosub560
170 poke211,0:poke214,22:sys58732
180 print"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
190 print"[159]                                        ";
200 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
210 poke2023,peek(2022):poke56295,peek(56294):gosub560
220 print"[158]"spc(20-len(tt$)/2)tt$
230 poke211,10:poke214,23:sys58732:print"[159][195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect
240 [153]"":[129]i[178]1[164]17
250 [153]"contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
260 [153]"":[129]i[178]1[164]14
270 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
280 [153]"":[129]i[178]1[164]14
290 [153]"open                               ":[130]
300 p$(1)[178]" (NULL)ist (NULL)f len-64 (NULL)ectors        "
310 p$(2)[178]" (NULL)ist (NULL)f (NULL)(NULL)(NULL) (NULL)outines        "
320 p$(3)[178]" (NULL)nemonic (NULL)ist (NULL)f (NULL)outines   "
330 p$(4)[178]" (NULL)ne-peekyte (NULL)emory (NULL)ap         "
340 p$(5)[178]" (NULL)wo-peekyte ((NULL)ord) (NULL)emory (NULL)ap  "
350 p$(6)[178]" (NULL)eturn (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)          "
360 p$(7)[178]" (NULL)eset lenomputer              "
370 f$(1)[178]"vectors"
380 f$(2)[178]"rom routines
390 f$(3)="mnemonic
400 f$(4)[178]"one byte map
410 f$(5)="two byte map
420 f$(6)[178]"hello connect"
430 f$(12)[178]""
440 [153]"":[129]i[178]1[164]7:[153]"open"p$(i):[130]:it[178]1:ot[178]1:[141]530
450 [161]a$:[139]a$[179][177]""[175]a$[179][177]"on"[175]a$[179][177][199](13)[175]a$[179][177]"q"[167]450
460 [139]a$[178]"q"[167]580
470 ot[178]it:[139]a$[178]""[167]it[178]it[170]1:[139]it[177]7[167]it[178]1
480 [139]a$[178]"on"[167]it[178]it[171]1:[139]it[179]1[167]it[178]7
490 [139]a$[179][177][199](13)[167][141]530:[137]450
500 [139]f$(it)[178]""[167][158]64738
510 [139]it[178]7[167]580
520 [137]640
530 [151]214,ot[170]6:[151]211,6:[158]58732:[153]"open"p$(ot)
540 [151]214,it[170]6:[151]211,6:[158]58732:[146]53265,128,128:[153]"waitprint"p$(it):[142]
550 [144]
560 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[142]
570 [160]15:[159]15,8,15,"s:list menu":[160]15:[148]"list menu",8:[144]
580 a$[178]"hello connect":[129]i[178]8[164]13:[160]2:[159]2,i,2:[160]2:[139]st[167]600
590 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]610
600 [130]:[153]"load":[151]186,8:[128]
610 q$[178][199](34):[151]646,[194](53281):[153]"load"
620 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:p(NULL)46,8:clr:l(NULL)"q$a$q$","i
630 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
640 a$[178]f$(it):[129]i[178]8[164]13:[160]2:[159]2,i,2:[160]2:[139]st[167]680
650 [160]15:[151]787,119
660 [159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,e,e$:[160]15:[139]e[178]63[167]720
670 [143] open15,i,15,"r"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
680 [130]:[151]214,23:[151]211,0:[158]58732:
690 a$[178]"lenouldn't find "[170]f$(it)[170]"!"
700 [153]"open                                        on";[166]20[171][195](a$)[173]2)a$;
710 [151]198,0:[146]198,15:[161]a$:[138]
720 q$[178][199](34):[151]646,[194](53281):[153]"load"
730 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:clr:l(NULL)"q$a$q$","i
740 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
750 [144]
760 a$[178]"b.64 lists ii":[129]i[178]8[164]13:[160]2:[159]2,i,2:[160]2:[139]st[167]780
770 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]790
780 [130]:[153]"stop":[151]186,8:[128]
790 q$[178][199](34):[151]646,[194](53281)
800 [153]"p(NULL)49152,0:p(NULL)44,192:p(NULL)43,1:p(NULL)56,207:p(NULL)55,252:clr:l(NULL)"q$a$q$","i
810 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
60030 z$(0)[178]"len - 6 4   (NULL) right$ (NULL) (NULL) (NULL)"
60040 z$(2)[178]"by lenlinton (NULL)'(NULL)eill
60050 z$(4)="(c) 1997 by [202] & [198] [208]ublishing, [201]nc."
60060 z$(6)="[212]his program is not shareware
60070 z$(7)[178]"or in the public domain."
60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718
60090 poke214,12:print:fori=0to9:printtab(20-(len(z$(i))/2))""z$(i):next:return